The Skills section measures participants’ self-assessed ability to perform a wide range of digital tasks. These items capture how confident people feel doing things like searching for information, creating content, protecting their privacy, or recognizing when AI is being used. The questions cover different domains of digital competence, from information and communication skills to AI and generative AI skills, and together provide insight into participants’ everyday digital capabilities and confidence levels.
Loading
Transactional
Transactional Skills cover the ability to complete official tasks online: handling tax matters, making digital payments, arranging healthcare, using digital identification (DigID), and uploading documents for online services.
Think about the extent to which each sentence applies to you, if you would have to do this activity now and without help. Please be honest. It is very normal that you never do some things. We'd like to know this. If you don't understand what the question means, please choose 'I don't understand the question.' Do you recognize yourself in the following statements?
AI Skills assess understanding and recognition of artificial intelligence in everyday applications: recognizing when websites/apps use AI, identifying AI-recommended content, and understanding how AI personalizes digital experiences.
Think about the extent to which each sentence applies to you, if you would have to do this activity now and without help. Please be honest. It is very normal that you never do some things. We'd like to know this. If you don't understand what the question means, please choose 'I don't understand the question.' Do you recognize yourself in the following statements?
Generative AI Skills measure competencies with AI tools like ChatGPT: knowing how to verify AI-generated information, writing effective prompts, detecting AI-generated content, and understanding GenAI’s capabilities and limitations.
Think about the extent to which each sentence applies to you, if you would have to do this activity now and without help. Please be honest. It is very normal that you never do some things. We'd like to know this. If you don't understand what the question means, please choose 'I don't understand the question.' Do you recognize yourself in the following statements?
---title: "{{< iconify ph lightning-fill >}} Skills"format: html---```{r}#| include: falselibrary(dashboardr)```**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**The **Skills** section measures participants’ *self-assessed ability* to perform a wide range of digital tasks. These items capture how confident people feel doing things like searching for information, creating content, protecting their privacy, or recognizing when AI is being used. The questions cover different domains of digital competence, from information and communication skills to AI and generative AI skills, and together provide insight into participants’ everyday digital capabilities and confidence levels.```{r setup}#| echo: false#| warning: false#| message: false#| error: false#| results: 'hide'# Load required librarieslibrary(dashboardr)library(dplyr)library(highcharter)# Global chunk optionsknitr::opts_chunk$set( echo = FALSE, warning = FALSE, message = FALSE, error = FALSE, fig.width = 12, fig.height = 8, dpi = 300)# Load data from dataset_4014obs.rdsdata <- readRDS('dataset_4014obs.rds')# Data summarycat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')# Create filtered datasets# Each filter is applied once and reused across visualizationsdata_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)``````{r, echo=FALSE, message=FALSE, warning=FALSE, results='asis'}# Use dashboardr's loading overlay functiondashboardr::add_loading_overlay("Loading", 1, theme = "light")```## {{< iconify ph wallet-fill >}} Transactional**Transactional Skills** cover the ability to complete official tasks online: handling tax matters, making digital payments, arranging healthcare, using digital identification (DigID), and uploading documents for online services.```{r, echo=FALSE, message=FALSE, warning=FALSE}create_blockquote("Think about the extent to which each sentence applies to you, if you would have to do this activity now and without help. Please be honest. It is very normal that you never do some things. We'd like to know this. If you don't understand what the question means, please choose 'I don't understand the question.' Do you recognize yourself in the following statements?", preset = "question")```[{{< iconify ph cards >}} See all Transactional results](transactional.html)::: {.panel-tabset}### {{< iconify ph number-circle-one-fill >}} Wave 1::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r trans-wave1-overall}# Transactional Skillsresult <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(Strans1, Strans2, Strans3, Strans4, Strans5), title = "Transactional Skills", questions = c("Strans1", "Strans2", "Strans3", "Strans4", "Strans5"), question_labels = c("I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", "I know how to apply for a DigID and how to use it.", "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card)."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-wave1-age-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans1), title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-wave1-age-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans2), title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-wave1-age-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans3), title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans3")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-wave1-age-item4}# I know how to apply for a DigID and how to use it.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans4), title = "I know how to apply for a DigID and how to use it.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans4")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-wave1-age-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans5), title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans5")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-wave1-gender-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans1), title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-wave1-gender-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans2), title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-wave1-gender-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans3), title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans3")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-wave1-gender-item4}# I know how to apply for a DigID and how to use it.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans4), title = "I know how to apply for a DigID and how to use it.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans4")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-wave1-gender-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans5), title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans5")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-wave1-edu-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans1), title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-wave1-edu-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans2), title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-wave1-edu-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans3), title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans3")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-wave1-edu-item4}# I know how to apply for a DigID and how to use it.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans4), title = "I know how to apply for a DigID and how to use it.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans4")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-wave1-edu-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans5), title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans5")result```::::::### {{< iconify ph number-circle-two-fill >}} Wave 2::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r trans-wave2-overall}# Transactional Skillsresult <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(Strans1, Strans2, Strans3, Strans4, Strans5), title = "Transactional Skills", questions = c("Strans1", "Strans2", "Strans3", "Strans4", "Strans5"), question_labels = c("I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", "I know how to apply for a DigID and how to use it.", "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card)."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-wave2-age-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans1), title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-wave2-age-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans2), title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-wave2-age-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans3), title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans3")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-wave2-age-item4}# I know how to apply for a DigID and how to use it.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans4), title = "I know how to apply for a DigID and how to use it.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans4")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-wave2-age-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans5), title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Strans5")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-wave2-gender-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans1), title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-wave2-gender-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans2), title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-wave2-gender-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans3), title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans3")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-wave2-gender-item4}# I know how to apply for a DigID and how to use it.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans4), title = "I know how to apply for a DigID and how to use it.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans4")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-wave2-gender-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans5), title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Strans5")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-wave2-edu-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans1), title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-wave2-edu-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans2), title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-wave2-edu-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans3), title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans3")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-wave2-edu-item4}# I know how to apply for a DigID and how to use it.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans4), title = "I know how to apply for a DigID and how to use it.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans4")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-wave2-edu-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans5), title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Strans5")result```::::::### {{< iconify ph chart-line-fill >}} Over Time::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-overtime-overall-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_timeline( data = data, title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "Strans1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-overtime-overall-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_timeline( data = data, title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "Strans2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-overtime-overall-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_timeline( data = data, title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "Strans3")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-overtime-overall-item4}# I know how to apply for a DigID and how to use it.result <- create_timeline( data = data, title = "I know how to apply for a DigID and how to use it.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "Strans4")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-overtime-overall-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_timeline( data = data, title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "Strans5")result```:::##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-overtime-age-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_timeline( data = data, title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans1", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-overtime-age-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_timeline( data = data, title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans2", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-overtime-age-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_timeline( data = data, title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans3", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-overtime-age-item4}# I know how to apply for a DigID and how to use it.result <- create_timeline( data = data, title = "I know how to apply for a DigID and how to use it.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans4", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-overtime-age-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_timeline( data = data, title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans5", group_var = "AgeGroup")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-overtime-gender-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_timeline( data = data, title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans1", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-overtime-gender-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_timeline( data = data, title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans2", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-overtime-gender-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_timeline( data = data, title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans3", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-overtime-gender-item4}# I know how to apply for a DigID and how to use it.result <- create_timeline( data = data, title = "I know how to apply for a DigID and how to use it.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans4", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-overtime-gender-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_timeline( data = data, title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans5", group_var = "geslacht")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r trans-overtime-edu-item1}# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.result <- create_timeline( data = data, title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans1", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r trans-overtime-edu-item2}# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).result <- create_timeline( data = data, title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans2", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r trans-overtime-edu-item3}# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).result <- create_timeline( data = data, title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans3", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r trans-overtime-edu-item4}# I know how to apply for a DigID and how to use it.result <- create_timeline( data = data, title = "I know how to apply for a DigID and how to use it.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans4", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r trans-overtime-edu-item5}# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).result <- create_timeline( data = data, title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "Strans5", group_var = "Education")result```:::::::::## {{< iconify ph robot-fill >}} AI**AI Skills** assess understanding and recognition of artificial intelligence in everyday applications: recognizing when websites/apps use AI, identifying AI-recommended content, and understanding how AI personalizes digital experiences.```{r, echo=FALSE, message=FALSE, warning=FALSE}create_blockquote("Think about the extent to which each sentence applies to you, if you would have to do this activity now and without help. Please be honest. It is very normal that you never do some things. We'd like to know this. If you don't understand what the question means, please choose 'I don't understand the question.' Do you recognize yourself in the following statements?", preset = "question")```[{{< iconify ph cards >}} See all AI results](ai.html)::: {.panel-tabset}### {{< iconify ph number-circle-one-fill >}} Wave 1::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r ai-wave1-overall}# AI Skillsresult <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(SAI1, SAI2), title = "AI Skills", questions = c("SAI1", "SAI2"), question_labels = c("I recognize when a website or app uses AI to adjust the content to me.", "I recognize when specific content is recommended to me by AI."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-wave1-age-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SAI1), title = "I recognize when a website or app uses AI to adjust the content to me.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-wave1-age-item2}# I recognize when specific content is recommended to me by AI.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SAI2), title = "I recognize when specific content is recommended to me by AI.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SAI2")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-wave1-gender-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SAI1), title = "I recognize when a website or app uses AI to adjust the content to me.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-wave1-gender-item2}# I recognize when specific content is recommended to me by AI.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SAI2), title = "I recognize when specific content is recommended to me by AI.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SAI2")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-wave1-edu-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SAI1), title = "I recognize when a website or app uses AI to adjust the content to me.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-wave1-edu-item2}# I recognize when specific content is recommended to me by AI.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SAI2), title = "I recognize when specific content is recommended to me by AI.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SAI2")result```::::::### {{< iconify ph number-circle-two-fill >}} Wave 2::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r ai-wave2-overall}# AI Skillsresult <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(SAI1, SAI2), title = "AI Skills", questions = c("SAI1", "SAI2"), question_labels = c("I recognize when a website or app uses AI to adjust the content to me.", "I recognize when specific content is recommended to me by AI."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-wave2-age-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SAI1), title = "I recognize when a website or app uses AI to adjust the content to me.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-wave2-age-item2}# I recognize when specific content is recommended to me by AI.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SAI2), title = "I recognize when specific content is recommended to me by AI.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SAI2")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-wave2-gender-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SAI1), title = "I recognize when a website or app uses AI to adjust the content to me.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-wave2-gender-item2}# I recognize when specific content is recommended to me by AI.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SAI2), title = "I recognize when specific content is recommended to me by AI.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SAI2")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-wave2-edu-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SAI1), title = "I recognize when a website or app uses AI to adjust the content to me.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-wave2-edu-item2}# I recognize when specific content is recommended to me by AI.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SAI2), title = "I recognize when specific content is recommended to me by AI.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SAI2")result```::::::### {{< iconify ph chart-line-fill >}} Over Time::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-overtime-overall-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_timeline( data = data, title = "I recognize when a website or app uses AI to adjust the content to me.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-overtime-overall-item2}# I recognize when specific content is recommended to me by AI.result <- create_timeline( data = data, title = "I recognize when specific content is recommended to me by AI.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SAI2")result```:::##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-overtime-age-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_timeline( data = data, title = "I recognize when a website or app uses AI to adjust the content to me.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SAI1", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-overtime-age-item2}# I recognize when specific content is recommended to me by AI.result <- create_timeline( data = data, title = "I recognize when specific content is recommended to me by AI.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SAI2", group_var = "AgeGroup")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-overtime-gender-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_timeline( data = data, title = "I recognize when a website or app uses AI to adjust the content to me.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SAI1", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-overtime-gender-item2}# I recognize when specific content is recommended to me by AI.result <- create_timeline( data = data, title = "I recognize when specific content is recommended to me by AI.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SAI2", group_var = "geslacht")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ai-overtime-edu-item1}# I recognize when a website or app uses AI to adjust the content to me.result <- create_timeline( data = data, title = "I recognize when a website or app uses AI to adjust the content to me.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SAI1", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ai-overtime-edu-item2}# I recognize when specific content is recommended to me by AI.result <- create_timeline( data = data, title = "I recognize when specific content is recommended to me by AI.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SAI2", group_var = "Education")result```:::::::::## {{< iconify ph magic-wand-fill >}} Gen AI**Generative AI Skills** measure competencies with AI tools like ChatGPT: knowing how to verify AI-generated information, writing effective prompts, detecting AI-generated content, and understanding GenAI's capabilities and limitations.```{r, echo=FALSE, message=FALSE, warning=FALSE}create_blockquote("Think about the extent to which each sentence applies to you, if you would have to do this activity now and without help. Please be honest. It is very normal that you never do some things. We'd like to know this. If you don't understand what the question means, please choose 'I don't understand the question.' Do you recognize yourself in the following statements?", preset = "question")```[{{< iconify ph cards >}} See all Gen AI results](gen_ai.html)::: {.panel-tabset}### {{< iconify ph number-circle-one-fill >}} Wave 1::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r genai-wave1-overall}# GenAI Skillsresult <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(SGAI1, SGAI2, SGAI3), title = "GenAI Skills", questions = c("SGAI1", "SGAI2", "SGAI3"), question_labels = c("I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-wave1-age-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-wave1-age-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-wave1-age-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI3")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-wave1-gender-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-wave1-gender-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-wave1-gender-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI3")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-wave1-edu-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-wave1-edu-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-wave1-edu-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI3")result```::::::### {{< iconify ph number-circle-two-fill >}} Wave 2::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r genai-wave2-overall}# GenAI Skillsresult <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(SGAI1, SGAI2, SGAI3), title = "GenAI Skills", questions = c("SGAI1", "SGAI2", "SGAI3"), question_labels = c("I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-wave2-age-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-wave2-age-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-wave2-age-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI3")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-wave2-gender-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-wave2-gender-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-wave2-gender-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI3")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-wave2-edu-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-wave2-edu-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-wave2-edu-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI3")result```::::::### {{< iconify ph chart-line-fill >}} Over Time::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-overtime-overall-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_timeline( data = data, title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SGAI1")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-overtime-overall-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_timeline( data = data, title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SGAI2")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-overtime-overall-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_timeline( data = data, title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SGAI3")result```:::##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-overtime-age-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_timeline( data = data, title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI1", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-overtime-age-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_timeline( data = data, title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI2", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-overtime-age-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_timeline( data = data, title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI3", group_var = "AgeGroup")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-overtime-gender-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_timeline( data = data, title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI1", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-overtime-gender-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_timeline( data = data, title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI2", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-overtime-gender-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_timeline( data = data, title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI3", group_var = "geslacht")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r genai-overtime-edu-item1}# I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.result <- create_timeline( data = data, title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI1", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r genai-overtime-edu-item2}# I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.result <- create_timeline( data = data, title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI2", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r genai-overtime-edu-item3}# I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a personresult <- create_timeline( data = data, title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI3", group_var = "Education")result```:::::::::```{=html}<nav class='pagination-nav pagination-bottom' role='navigation' aria-label='Page navigation'> <div class='pagination-container'> <a href='skills_p2.html' class='pagination-btn pagination-prev' aria-label='Previous page'> <svg class='pagination-icon' width='18' height='18' viewBox='0 0 20 20' fill='none' xmlns='http://www.w3.org/2000/svg'> <path d='M12 16L6 10L12 4' stroke='currentColor' stroke-width='2' stroke-linecap='round' stroke-linejoin='round'/> </svg> </a> <div class='pagination-info'> <span class='pagination-prefix'></span> <input type='number' class='pagination-input' id='page-input-bottom' min='1' max='3' value='3' aria-label='Current page'> <span class='pagination-separator'> / 3</span> </div> <button class='pagination-btn pagination-next pagination-disabled' disabled aria-label='Next page'> <svg class='pagination-icon' width='18' height='18' viewBox='0 0 20 20' fill='none' xmlns='http://www.w3.org/2000/svg'> <path d='M8 16L14 10L8 4' stroke='currentColor' stroke-width='2' stroke-linecap='round' stroke-linejoin='round'/> </svg> </button> </div></nav><!-- Pagination Navigation Script --><script>(function() { const pageUrls = ["skills.html","skills_p2.html","skills_p3.html"]; const pageInput = document.getElementById('page-input-bottom'); if (pageInput) { pageInput.addEventListener('change', function() { const pageNum = parseInt(this.value); if (pageNum >= 1 && pageNum <= pageUrls.length) { window.location.href = pageUrls[pageNum - 1]; } else { this.value = this.getAttribute('value'); } }); pageInput.addEventListener('keypress', function(e) { if (e.key === 'Enter') { this.blur(); } }); }})();</script>```